home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MOD2SRC.ZIP / RECURSON.MOD < prev    next >
Encoding:
Text File  |  1987-02-08  |  507 b   |  23 lines
  1.                                          (* Chapter 5 - Program 7 *)
  2. MODULE Recurson;
  3.  
  4. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  5.  
  6. VAR Count : INTEGER;
  7.  
  8. PROCEDURE PrintAndDecrement(Index : INTEGER);
  9. BEGIN
  10.    WriteString("The value of the Index is");
  11.    WriteInt(Index,5);
  12.    WriteLn;
  13.    Index := Index - 1;
  14.    IF Index > 0 THEN
  15.       PrintAndDecrement(Index);
  16.    END;
  17. END PrintAndDecrement;
  18.  
  19. BEGIN    (* Main program *)
  20.    Count := 7;
  21.    PrintAndDecrement(Count);
  22. END Recurson.
  23.